object BaseSurveyForm: TBaseSurveyForm Left = 425 Top = 330 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'We would love to know what you think...' ClientHeight = 187 ClientWidth = 409 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 120 Width = 377 Height = 17 Alignment = taCenter AutoSize = False Caption = 'Would you like to fill out the survey now?' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Memo1: TMemo Left = 8 Top = 8 Width = 393 Height = 97 Alignment = taCenter BorderStyle = bsNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Lines.Strings = ( 'Please take 1 minute to fill out a short, private survey letting' + ' us ' 'know what you think of this program. ' '' 'It will give you a chance to tell ' 'us about what you like, what you don'#39't like, make suggestions, a' + 'sk ' 'questions, and tell us about any problems you had. You'#39'll also g' + 'et a ' 'chance to win a free Shareware CD.' '') ParentFont = False ReadOnly = True TabOrder = 0 end object YesButton: TButton Left = 48 Top = 152 Width = 75 Height = 25 Caption = '&Yes' Default = True ModalResult = 6 TabOrder = 1 end object LaterButton: TButton Left = 160 Top = 152 Width = 89 Height = 25 Caption = '&Ask Me Later' Default = True ModalResult = 2 TabOrder = 2 end object NeverButton: TButton Left = 288 Top = 152 Width = 75 Height = 25 Caption = '&Never' Default = True ModalResult = 7 TabOrder = 3 end end